home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 September / WPCSEP97.ISO / DXRS / INXWSEP.Dxr / 00020_CDXPressEndSearch .ls < prev    next >
Encoding:
Text File  |  1997-07-09  |  2.2 KB  |  52 lines
  1. on CDXPressEndSearch
  2.   global CDXProceed, CDXMasSearchList, IFLButtonList, IFLHeadInkList, CDXMasterList, CDXHelpOnStage, CDXSub
  3.   if rollOver(8) and the mouseUp then
  4.     set the castNum of sprite 8 to the number of member "CDXEndSearchButtonTwo"
  5.     updateStage()
  6.     repeat while rollOver(8)
  7.       if the mouseDown then
  8.         set CDXProceed to 2
  9.         exit repeat
  10.       end if
  11.     end repeat
  12.     if CDXProceed = 2 then
  13.       set CDXProceed to 0
  14.       DBCloseSession()
  15.       repeat with f = 1 to count(CDXMasSearchList)
  16.         set TwochangeSprite to getAt(CDXMasSearchList, f)
  17.         set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  18.       end repeat
  19.       repeat with f = 1 to count(CDXMasterList)
  20.         set TwochangeSprite to getAt(CDXMasterList, f)
  21.         if count(TwochangeSprite) > 2 then
  22.           set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  23.           set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  24.           set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  25.           set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  26.           set the visible of sprite getAt(TwochangeSprite, 1) to 1
  27.           next repeat
  28.         end if
  29.         set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  30.       end repeat
  31.       set the editableText of sprite 9 to 0
  32.       repeat with f = 1 to count(IFLButtonList)
  33.         set TwochangeSprite to getAt(IFLButtonList, f)
  34.         set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  35.         set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  36.         set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  37.       end repeat
  38.       repeat with f = 1 to count(IFLHeadInkList)
  39.         set TwochangeSprite to getAt(IFLHeadInkList, f)
  40.         set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  41.       end repeat
  42.       updateStage()
  43.       set CDXHelpOnStage to 0
  44.       set CDXSub to 1
  45.       go("CDXSection")
  46.     else
  47.       set the castNum of sprite 8 to the number of member "CDXEndSearchButtonOne"
  48.       updateStage()
  49.     end if
  50.   end if
  51. end
  52.